#!/usr/bin/perl

use warnings;
use strict;

printf "Today's degree is %.1f\n", convert(100);

sub convert {
    my $fdegree = shift;
    my $cdegree = ($fdegree - 32) / 1.8;
}
